home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 April: Mac OS SDK / Dev.CD Apr 96 SDK / Dev.CD Apr 96 SDK1.toast / Development Kits (Disc 1) / OpenDoc Development Framework / DU Folder / Finance SOM Lib / •SOM / SFinance.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1995-11-28  |  4.2 KB  |  135 lines  |  [TEXT/MPS ]
  1. /*
  2.  *  This file was generated by the SOM Compiler.
  3.  *  Generated using:
  4.  *     SOM incremental update: 2.33
  5.  */
  6.  
  7. #ifdef SYMANTEC_CPLUS
  8. #undef PRAGMA_IMPORT_SUPPORTED
  9. #define PRAGMA_IMPORT_SUPPORTED 1
  10. #endif
  11.  
  12. #define SOM_Module_sfinance_Source
  13. #include "SFinance.xih"
  14.  
  15. #ifndef _FINANCE_
  16.     #include "Finance.h"
  17. #endif
  18.  
  19. //=======================================================================================
  20. SOM_Scope double  SOMLINK 
  21. FINANFutureValue(DevUniv_SFinance *somSelf, Environment *ev,
  22.         double presentValue,
  23.         double annualInterestPercent,
  24.         short compoundsPerYear,
  25.         double years)
  26. {
  27.     DevUniv_SFinanceMethodDebug("DevUniv_SFinance","FINANFutureValue");
  28.     return ::FutureValue(presentValue, annualInterestPercent, 
  29.                             compoundsPerYear, years);            // •••
  30. }
  31.  
  32. //---------------------------------------------------------------------------------------
  33. SOM_Scope double  SOMLINK 
  34. FINANFutureValueWithPayments(DevUniv_SFinance *somSelf, Environment *ev,
  35.         double payment,
  36.         short paymentsPerYear,
  37.         short compoundsPerYear,
  38.         double annualInterestPercent,
  39.         double years)
  40. {
  41.     DevUniv_SFinanceMethodDebug("DevUniv_SFinance","FINANFutureValueWithPayments");
  42.     return ::FutureValueWithPayments(payment, paymentsPerYear,  compoundsPerYear, 
  43.                                         annualInterestPercent, years); // •••
  44. }
  45.  
  46. //---------------------------------------------------------------------------------------
  47. SOM_Scope double  SOMLINK 
  48. FINANAnnuityPresentValue(DevUniv_SFinance *somSelf, Environment *ev,
  49.         double payment,
  50.         double annualInterestPercent,
  51.         short paymentsPerYear,
  52.         double years)
  53. {
  54.     DevUniv_SFinanceMethodDebug("DevUniv_SFinance","FINANAnnuityPresentValue");
  55.     return ::AnnuityPresentValue(payment, annualInterestPercent, 
  56.                                 paymentsPerYear, years);            // •••
  57. }
  58.  
  59. //=======================================================================================
  60. // Loan functions
  61. /*
  62.  *  Loan functions
  63.  */
  64.  
  65. SOM_Scope double  SOMLINK 
  66. FINANAnnuityMonths(DevUniv_SFinance *somSelf, Environment *ev,
  67.         double annuity,
  68.         double monthlyWithdrawal,
  69.         double annualInterestPercent)
  70. {
  71.     DevUniv_SFinanceMethodDebug("DevUniv_SFinance","FINANAnnuityMonths");
  72.     return ::AnnuityMonths(annuity, monthlyWithdrawal, annualInterestPercent);     // •••
  73. }
  74.  
  75. //---------------------------------------------------------------------------------------
  76. SOM_Scope double  SOMLINK 
  77. FINANPayment(DevUniv_SFinance *somSelf, Environment *ev,
  78.         double amountBorrowed,
  79.         double annualInterestPercent,
  80.         double years)
  81. {
  82.     DevUniv_SFinanceMethodDebug("DevUniv_SFinance","FINANPayment");
  83.     return ::Payment(amountBorrowed, annualInterestPercent, years);        // •••
  84. }
  85.  
  86. //---------------------------------------------------------------------------------------
  87. SOM_Scope double  SOMLINK 
  88. FINANLoanAmount(DevUniv_SFinance *somSelf, Environment *ev,
  89.         double monthlyPayment,
  90.         double annualInterestPercent,
  91.         double years)
  92. {
  93.     DevUniv_SFinanceMethodDebug("DevUniv_SFinance","FINANLoanAmount");
  94.     return ::LoanAmount(monthlyPayment, annualInterestPercent, years);         // •••
  95. }
  96.  
  97. //---------------------------------------------------------------------------------------
  98. SOM_Scope double  SOMLINK 
  99. FINANLoanMonths(DevUniv_SFinance *somSelf, Environment *ev,
  100.         double amountBorrowed,
  101.         double monthlyPayment,
  102.         double annualInterestPercent)
  103. {
  104.     DevUniv_SFinanceMethodDebug("DevUniv_SFinance","FINANLoanMonths");
  105.     return ::LoanMonths(amountBorrowed, monthlyPayment, annualInterestPercent);    // •••
  106. }
  107.  
  108. //---------------------------------------------------------------------------------------
  109. SOM_Scope double  SOMLINK 
  110. FINANInterestRate(DevUniv_SFinance *somSelf, Environment *ev,
  111.         double amountBorrowed,
  112.         double monthlyPayment,
  113.         double years)
  114. {
  115.     DevUniv_SFinanceMethodDebug("DevUniv_SFinance","FINANInterestRate");
  116.     return ::InterestRate(amountBorrowed, monthlyPayment, years);    // •••
  117. }
  118.  
  119. //---------------------------------------------------------------------------------------
  120. /*
  121.  * 
  122.  */
  123.  
  124. SOM_Scope double  SOMLINK 
  125. FINANBalloonPayment(DevUniv_SFinance *somSelf, Environment *ev,
  126.         double amountBorrowed,
  127.         double monthlyPayment,
  128.         double annualInterestPercent,
  129.         double years)
  130. {
  131.     DevUniv_SFinanceMethodDebug("DevUniv_SFinance","FINANBalloonPayment");
  132.     return ::BalloonPayment(amountBorrowed, monthlyPayment, 
  133.                                 annualInterestPercent, years);    // •••
  134. }
  135.